home *** CD-ROM | disk | FTP | other *** search
/ Gamers Arsenal 1 / Gamers Arsenal (Arsenal Computer).iso / gifreed / gifv.slr < prev    next >
Text File  |  1993-10-11  |  1KB  |  43 lines
  1. ;
  2. ; GIFV.SLR
  3. ; This script shows how to use the IF-LAST-FILE, File-Delete,
  4. ; File-Copy, File-Rename, File-Move, File-Error(System Variable),
  5. ; and the power use of the Change-Path command.
  6. ;
  7. ; The purpose of this script is the show how to use a variety of
  8. ; commands in a script that actually does something pretty useful
  9. ; (AMAZING)!. This script will go to a directory of choice (specified
  10. ; at run time) and will automatically create 3 subdirectories (GIF,
  11. ; BMP, and OTHER). It will then process the directory and move all
  12. ; of the .GIF files into the GIF subdirectory, all of the .BMP files
  13. ; into the BMP subdirectory and the rest of the files into a sub-
  14. ; directory called OTHER.
  15. ;
  16. ; NOTE The format for FILE-COPY is the same as FILE-MOVE. FILE-DELETE
  17. ;      and FILE-RENAME are documented in the manual.
  18. ;
  19.         change-path %1
  20.         Sub-Create gif
  21.         Sub-Create bmp
  22.         Sub-Create other
  23. :loop
  24.         if-last-file  :exit
  25.         ifbmp         :movetobmp
  26.         ifgif         :movetogif
  27.         file-move other :move-err
  28.         goto          :donext
  29. :move-err
  30.         echo     Error in moving file
  31.         goto          :donext
  32. :movetobmp
  33.         file-move bmp :move-err
  34.         goto          :donext
  35. :movetogif
  36.         file-move gif :move-err
  37.         goto          :donext
  38. :donext
  39.         skipnext      :exit
  40.         goto :loop
  41. :exit
  42.  
  43.